1 P1$=""
2 DIMCL(15):DIMCL$(15):P$=P1$+"[144]HIT ANY KEY  HIT ANY KEY"
3 FORD=0TO15:READCL(D):READCL$(D):NEXT
10 FORA=0TO15
20 POKE53280,A:POKE53281,A
30 FORB=15TO0STEP-1:POKE646,B:PRINT"[147]    COLORS: ";CL$(B);"  ON: "CL$(A)
40 FORC=1TO10:PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]                    ":NEXT
43 FORC=1TO10:PRINT"ABCDEFGHIJKLMNOPQRS[146]TUVWXYZ123457890.,:@":NEXT
44 PRINTP1$;"[145]                                       "
45 PRINTP1$;"[145][195]-64:TEXT IS #";B;"  &   BKGD IS #";A
50 PRINTP$:POKE198,0:WAIT198,1
60 NEXTB,A
100 DATA0,BLACK,1,WHITE,2,RED,3,CYAN,4,PURPLE,5,GREEN,6,BLUE,7,YELLOW
110 DATA8,ORANGE,9,BROWN,10,LT. RED,11,GRAY,12,MED. GRAY,13,LT. GREEN,14,LT. BLUE
120 DATA15,LT. GRAY